home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / wclass20.zip / ADAUSER.ADA < prev    next >
Text File  |  1994-12-18  |  966b  |  28 lines

  1. --Getting Started Ada Script
  2. --The purpose of this script is to generate an Ada package
  3. --Created by Richard Felsinger, RCF Associates, 960 Scottland Dr
  4. --Mt Pleasant, SC 29464 e-mail 71162,755@compuserve.com 
  5. --1-803-881-3648
  6.  
  7. --Enter the basic Ada types in the attribute and operation 
  8. --specification forms: BOOLEAN, CHARACTER, INTEGER, FLOAT,
  9. --POSITIVE, NATURAL, DURATION, STRING
  10. --
  11. --Enter operation parameters in the operation specification
  12. --form parameter_type parameter_name.  Then use the variable
  13. -- 
  14.  
  15. --Question - What additional With Class script variables or additional
  16. --dialog boxes, text boxes, or check boxes are required to fully
  17. --support Ada-83 and Ada-9X.  Please submit new Ada scripts.
  18.  
  19. ----------------------------------------------------------------------------------
  20. with text_io; use text_io;
  21. with Cars; use Cars;
  22. procedure adauser is
  23.   a_AdaCar : Car;  
  24. begin
  25.   Text_io.Put ("This is a test.");
  26. end adauser;
  27.  
  28.